0 NMEMTOP=PEEK(106)-12›10 POKE 106,NMEMTOP›20 GRAPHICS 0›30 REM CALCULATE STARTING ADDRESS FOR 4 CHARACTER SETS›40 CHROM=PEEK(756)*256›50 CHRAM1=NMEMTOP*256›60 CHRAM2=CHRAM1+1024›70 CHRAM3=CHRAM2+1024›80 REM CALCULATE HIGH BYTE OF 4 CHARACTER SETS›90 C1H=NMEMTOP›100 C2H=C1H+4›110 C3H=C1H+8›120 C4H=PEEK(756)›130 PRINT "    COPYING CHARACTER SETS"›140 REM COPY ROM CHARACTER SETS TO RAM›150 FOR I=0 TO 975›160 POKE CHRAM1+48+I,PEEK(CHROM+I):NEXT I›170 FOR I=0 TO 991›180 POKE CHRAM2+32+I,PEEK(CHROM+I):NEXT I›190 FOR I=0 TO 999›200 POKE CHRAM3+24+I,PEEK(CHROM+I):NEXT I›210 REM CLEAR MISSING CHARACTERS TO ZERO›220 FOR I=0 TO 47:POKE CHRAM1+I,0:NEXT I›230 FOR I=0 TO 31:POKE CHRAM2+I,0:NEXT I›240 FOR I=0 TO 23:POKE CHRAM3+I,0:NEXT I›250 REM PRINT CHARACTERS TO SCREEN›260 POSITION 8,8:PRINT CHR$(15)›270 POSITION 19,8:PRINT CHR$(23)›280 POSITION 30,8:PRINT "7"›290 REM ROTATE CHARACTER SETS›300 POKE 756,C1H›310 FOR DE=1 TO 200:NEXT DE›320 POKE 756,C2H›330 FOR DE=1 TO 200:NEXT DE›340 POKE 756,C3H›350 FOR DE=1 TO 200:NEXT DE›360 POKE 756,C4H›370 FOR DE=1 TO  200:NEXT DE›380 GOTO 300›